home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / fpl70.lha / bench / decimal.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1993-03-11  |  236 b   |  18 lines
  1. /* AREXX */
  2.  
  3. say "Insert maximum number of decimals:"
  4. pull number
  5. say "Insert left operand:"
  6. pull a
  7. say "Insert right operand:"
  8. pull b
  9.  
  10. s=(a%b)
  11. if ((a//b)>0) then
  12.   s=s||"."
  13.   do i=0 to number
  14.     a=(a//b)*10
  15.     s=s||(a%b)
  16.   end
  17. say s
  18.